home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / csubrtns.arc / FILP.C < prev    next >
Encoding:
Text File  |  1985-07-06  |  768 b   |  46 lines
  1. /* filp.c by Michael Hanson */
  2. /* you may use this, but not for profit, and give me credit */ 
  3. /* static int inchar; or more for a buffer, so don't need to read 1 ch 
  4.     at a time */
  5. putc(chr,filno)
  6. FILE filno;
  7. int chr;
  8. {
  9. #asm
  10.         MOV BX,WORD [BP+6]
  11.         MOV CX,01H
  12.         LEA DX,[BP+4]
  13.         MOV AH,40H
  14.         INT 21H
  15.         JB PERR
  16.         CMP AX,1
  17.         JNE PERR
  18.         XOR AX,AX
  19.         JMP PDON
  20. PERR:    MOV AX,-1
  21. PDON:    
  22. #
  23. }
  24.  
  25. getc(filno)
  26. FILE filno;
  27. {
  28. #asm
  29.         dseg
  30. INCHAR    DW 0000H
  31.         CSEG
  32.         MOV BX,WORD [bp+4]     ;get file handle
  33.         MOV CX,01H
  34.         MOV DX,OFFSET INCHAR
  35.         MOV AH,3FH
  36.         INT 21H
  37.         JB    ERR
  38.         CMP AX,0
  39.         JE    ERR
  40.         MOV AX,INCHAR
  41.         JMP DONE
  42. ERR:    MOV AX,-1H
  43. DONE:    
  44. #
  45. }
  46.